home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_MainW.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  7.2 KB  |  212 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_MainW.c
  5. * RCS:          $Header: wc_MainW.c,v 1.3 91/03/14 03:14:51 mayer Exp $
  6. * Description:  XM_MAIN_WINDOW_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 03:35:05 1989
  9. * Modified:     Thu Oct  3 23:56:06 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_MainW.c,v 1.3 91/03/14 03:14:51 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/MainW.h>
  47. #include "winterp.h"
  48. #include "user_prefs.h"
  49. #include "xlisp/xlisp.h"
  50. #include "w_funtab.h"
  51.  
  52.  
  53. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  54.  
  55.  
  56. /******************************************************************************
  57.  * (send <mainwinwidget> :SET_AREAS <menu> <command> <hscroll> <vscroll>
  58.  *                                  <workregion>)
  59.  *      ==> returns <mainwinwidget>.
  60.  * This method is used to attach children to be managed by an instance of
  61.  * XM_MAIN_WINDOW_WIDGET_CLASS. <menu> <command> <hscroll> <vscroll>
  62.  * and <workregion> are all WIDGETOBJs. If you don't want to set
  63.  * the particular region, pass NIL as the argument for the particular widget.
  64.  * 
  65.  * void XmMainWindowSetAreas(mw, menu, command, hscroll, vscroll, wregion)
  66.  *     XmMainWindowWidget mw;
  67.  *     Widget menu;
  68.  *     Widget command;
  69.  *     Widget hscroll;
  70.  *     Widget vscroll;
  71.  *     Widget wregion;
  72.  ******************************************************************************/
  73. LVAL Xm_Main_Window_Widget_Class_SET_AREAS()
  74. {
  75.   LVAL self, widgetobj;
  76.   Widget widget_id, menu, command, hscroll, vscroll, wregion;
  77.  
  78.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self); /*  get <self> */
  79.  
  80.   if (moreargs() && (*xlargv == NIL)) { /* get <menu> */
  81.     menu = NULL;
  82.     nextarg();
  83.   }
  84.   else
  85.     menu = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&widgetobj);
  86.  
  87.   if (moreargs() && (*xlargv == NIL)) { /* get <command> */
  88.     command = NULL;
  89.     nextarg();
  90.   }
  91.   else
  92.     command = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&widgetobj);
  93.  
  94.   if (moreargs() && (*xlargv == NIL)) { /* get <hscroll> */
  95.     hscroll = NULL;
  96.     nextarg();
  97.   }
  98.   else
  99.     hscroll = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&widgetobj);
  100.  
  101.   if (moreargs() && (*xlargv == NIL)) { /* get <vscroll> */
  102.     vscroll = NULL;
  103.     nextarg();
  104.   }
  105.   else
  106.     vscroll = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&widgetobj);
  107.  
  108.   if (moreargs() && (*xlargv == NIL)) { /* get <workregion> */
  109.     wregion = NULL;
  110.     nextarg();
  111.   }
  112.   else
  113.     wregion = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&widgetobj);
  114.  
  115.   xllastarg();
  116.  
  117.   XmMainWindowSetAreas(widget_id, menu, command, hscroll, vscroll, wregion);
  118.  
  119.   return (self);
  120. }
  121.  
  122.  
  123. /******************************************************************************
  124.  * (send <mainwinwidget> :SEP1)
  125.  *       ==> returns the WIDGETOBJ corresponding to the first separator widget.
  126.  *
  127.  * Widget XmMainWindowSep1(w)
  128.  *  Widget w;
  129.  ******************************************************************************/
  130. LVAL Xm_Main_Window_Widget_Class_SEP1()
  131. {
  132.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  133.   LVAL self;
  134.   Widget widget_id;
  135.  
  136.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  137.   xllastarg();
  138.   
  139.   return (Wcls_WidgetID_To_WIDGETOBJ(XmMainWindowSep1(widget_id)));
  140. }
  141.  
  142.  
  143. /******************************************************************************
  144.  * (send <mainwinwidget> :SEP2)
  145.  *       ==> returns the WIDGETOBJ corresponding to the second separator widget.
  146.  *
  147.  * Widget XmMainWindowSep2(w)
  148.  *  Widget w;
  149.  ******************************************************************************/
  150. LVAL Xm_Main_Window_Widget_Class_SEP2()
  151. {
  152.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  153.   LVAL self;
  154.   Widget widget_id;
  155.  
  156.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  157.   xllastarg();
  158.   
  159.   return (Wcls_WidgetID_To_WIDGETOBJ(XmMainWindowSep2(widget_id)));
  160. }
  161.  
  162.  
  163. #ifdef WINTERP_MOTIF_11
  164. /******************************************************************************
  165.  * (send <mainwinwidget> :SEP3)
  166.  *       ==> returns the WIDGETOBJ corresponding to the third separator widget.
  167.  *
  168.  * Widget XmMainWindowSep3(w)
  169.  *  Widget w;
  170.  ******************************************************************************/
  171. LVAL Xm_Main_Window_Widget_Class_SEP3()
  172. {
  173.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  174.   LVAL self;
  175.   Widget widget_id;
  176.  
  177.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  178.   xllastarg();
  179.   
  180.   return (Wcls_WidgetID_To_WIDGETOBJ(XmMainWindowSep3(widget_id)));
  181. }
  182. #endif                /* WINTERP_MOTIF_11 */
  183.  
  184. /******************************************************************************
  185.  *
  186.  ******************************************************************************/
  187. Wc_MainW_Init()
  188. {
  189.   LVAL o_XM_MAIN_WINDOW_WIDGET_CLASS;
  190.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  191.   extern      xladdmsg();    /* from xlobj.c */
  192.  
  193.   o_XM_MAIN_WINDOW_WIDGET_CLASS =
  194.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_MAIN_WINDOW_WIDGET_CLASS",
  195.                      xmMainWindowWidgetClass);
  196.  
  197.   xladdmsg(o_XM_MAIN_WINDOW_WIDGET_CLASS, ":SET_AREAS",
  198.        FTAB_Xm_Main_Window_Widget_Class_SET_AREAS);
  199.  
  200.   xladdmsg(o_XM_MAIN_WINDOW_WIDGET_CLASS, ":SEP1",
  201.        FTAB_Xm_Main_Window_Widget_Class_SEP1);
  202.  
  203.   xladdmsg(o_XM_MAIN_WINDOW_WIDGET_CLASS, ":SEP2",
  204.        FTAB_Xm_Main_Window_Widget_Class_SEP2);
  205.  
  206. #ifdef WINTERP_MOTIF_11
  207.   xladdmsg(o_XM_MAIN_WINDOW_WIDGET_CLASS, ":SEP3",
  208.        FTAB_Xm_Main_Window_Widget_Class_SEP3);
  209. #endif                /* WINTERP_MOTIF_11 */
  210.  
  211. }
  212.